home *** CD-ROM | disk | FTP | other *** search
/ Aminet 16 / Aminet 16 (1996)(GTI - Schatztruhe)[!][Dec 1996].iso / Aminet / gfx / misc / PrintWin.lha / PrintWin.rexx < prev   
OS/2 REXX Batch file  |  1996-10-04  |  1KB  |  56 lines
  1. /*  PrintWin.rexx - PRINTS PRINTME.iff file generated by WGRAB
  2.  
  3.     1.WGRAB Must be in your Tools: assigned directory.
  4.  
  5.     2.Configure WGRAB to
  6.  
  7.     save as filename 'RAM:PRINTME.IFF'
  8.     Popup as       'lalt w'
  9.     Window Grab as 'lalt g'
  10.     Screen Grab as 'lalt c'
  11.  
  12.     3.Multiview must be in your path.
  13.  
  14.     email me at ixoye@crl.com if you have problems
  15. */
  16.  
  17. if ~show('Libraries', 'rexxarplib.library') then
  18.         if ~addlib('rexxarplib.library', 0, -30) then do
  19.                 say "No rexxarplib, so no posting!"
  20.                 exit
  21.                 end
  22.  
  23. options RESULTS
  24.  
  25. IF  SHOW('P','WGRAB')  THEN DO
  26.  
  27. END
  28.  
  29. ELSE DO
  30.  
  31.     ADDRESS COMMAND 'run >nil: <nil: TOOLS:WGRAB'
  32.  
  33. END
  34.  
  35. IF EXISTS("RAM:PRINTME.IFF")==1 THEN DO
  36.  
  37.     ADDRESS COMMAND 'C:RUN MultiView RAM:PRINTME.IFF PORTNAME PRINTWIN'
  38.  
  39.     ADDRESS 'PRINTWIN' 'PRINT'
  40.  
  41.     ADDRESS COMMAND 'C:REQUESTCHOICE TEXT "Click on OK when printing is Finished." "OK"'
  42.  
  43.     ADDRESS 'PRINTWIN' 'QUIT'
  44.  
  45.     ADDRESS COMMAND 'C:delete "RAM:PRINTME.IFF"'
  46.  
  47.     END
  48.  
  49. ELSE DO
  50.  
  51.     ADDRESS COMMAND 'C:REQUESTCHOICE TEXT "You must first Grab the Active Window by pressing LEFT ALT & G simultaneously" "OK"'
  52.  
  53. END
  54.  
  55. EXIT
  56.